home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / portable / Don't destroy Archive.sit / 1111MAIN ARCHIVE / BYRDA.BAK < prev    next >
Text File  |  1988-06-20  |  419b  |  18 lines
  1. 10 OPEN "A:\ACSUBIN" FOR INPUT AS #1
  2. 20 OPEN "C:\ACSUB3RD" FOR OUTPUT AS #2
  3. 21 R=0
  4. 25 PRINT #2,CHR$(34);
  5. 30 A$=INPUT$ (1,1)
  6. 32 IF EOF(1) THEN END
  7. 35 IF A$ = CHR$(34) GOTO 30
  8. 40 IF A$ = CHR$(9) THEN GOTO 150
  9. 50 IF A$ = CHR$(13) THEN GOTO 200
  10. 100 PRINT #2,A$;
  11. 110 GOTO 30
  12. 150 PRINT #2,CHR$(34);CHR$(44);CHR$(34);
  13. 160 GOTO 30
  14. 200 PRINT #2,CHR$(34);A$;CHR$(10);CHR$(34);
  15. 205 R=R+1
  16. 210 PRINT R
  17. 250 GOTO 30
  18.